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FILE MESA-N0VA2 .ASM 
R. JOHNSSON 

LAST MODIFIED May 17, 1978 7:57 AM 
. TITL MesaNova2 
. TXTM B 

. ENT PScode 

. ENT MesaNova2 

. ENT MesaNovaSize2 

. ENT STOPImplementer 

.ENT CleanUpQueuelmplementer 

.ENT RequeueSublmplementer 

.ENT WakeHeadUser 

. ENT OSFPtr 

.ENT OutLdPtr 

.ENT InLdPtr 

.ENT FinishPtr 

.ENT FinProcPtr 

.SREL 
PScode: PCORR 
MesaNova2: START 
MesaNovaSize2: END-START 
STOPImplementer: STOP-START+X 
CI eanUpQueue Imp! ementer : CI eanUpQueue-START+X 
RequeueSublmpl ementer : RequeueSub-START+X 
WakeHeadUser: WakeHead 
OSFPtr: RTRN 
OutLdPtr: OUTLDP 
InLdPtr: INLDP 
FinishPtr: FINISH-START+X 
FinProcPtr: FINPROC 

. NREL 

.GET "Mesa-NovaDef s.asm" 



X = 174400 
START: 

PCORR: PSO-START+X-1+2 



; where this code will be loaded 



Absolute address of PS0-1+-2 
PSO thru PS16 must be consecutive locations 



PSO 

PS1 

PS2 

PS3 

PS4 

PS5 

PS6 

PS7 

PS10 

PS11 

PS12 

PS13 

PS14 

PS15 

PS16 



JSR PSWITCH 

JSR PSWITCH 

JSR PSWITCH 

JSR PSWITCH 

JSR PSWITCH 

JSR PSWITCH 

JSR PSWITCH 

JSR PSWITCH 

JSR PSWITCH 

JSR PSWITCH 

JSR PSWITCH 

JSR PSWITCH 

JSR PSWITCH 

JSR PSWITCH 

JSR PSWITCH 



pINTPC: INTPC 
PSWITCH: 

LDA 0 PCORR 
SUB 0 3 ; 
LDA 0 CVA t 3 ; 
LDA 1 ©pINTPC ; 
MOVL0 1 1 SZC 
BRI ; 

NakedNotify: ;(cvptr) 

mov 0 2 snr 
br i 

Ida 1 0,2 

movzl// 1 1 szr 

jmp DoNotify 

subzr 0 0 



AC3 now has interrupt channel number 

ACO now has CVptr to NOTIFY 

Find out where we interrupted from 

Something wrong, probably SWAT abort 

; test for no cv 
; cvptrt 

; test for empty, ignore possible ww 
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sta 0 0,2 ; cvptrt [ww, empty] 

bri 
DoNotify: 

jsr CleanUpQueue 
jsr ©WakeHead 
bri 

WakeHead: 0 

STOP: LDA 2 currentState ; COPY STATE POINTER TO AC 2 

JSR NOVACODE ; ADDRESS OF DISPATCH TABLE TO AC3 
JMP ©RTRN 
JMP ©RTRN 
JMP DOOUTLD 
JMP DOINLD 
JMP DISASTER 
JMP NOVAJSR 

NOVACODE: LDA 0 0,2 ; PICK UP CODE 

ADD 0 3 ; ADD TO TABLE BASE 

JMP 0,3 



FINPROC: 



; POINTS TO PD FOR FINISH PROCEDURE 



FINISH: 



DIR 

LDA 1 ©FINPROC 
MOV# 1 1 SNR 



JMP 
INC 
STA 
LDA 
STA 
SUB 
STA 
STA 
SUBZL 
STA 0 



1.3 
3 3 



RTRN 

currentState 
11,2 
1 

12,2 
0,2 
0 0 
10,2 
STA 1 ©pACTIVE 
ISZ SDC 
JMP ©Emulate 



NEW RETURN ADDRESS 



THE FINISH CODE 



; STKP 1 
DISABLE ALL INTERRUPTS 
disable reschedule 



pACTIVE: ACTIVE 



DOOUTLD: 



OUTLDP: 



DOINLD: 



SUBZL 0 0 
STA 0 10,2 ; STKP 

LDA 0 1,2 
LDA 1 2,2 
JSR ©OUTLDP 
0 

STA 0 0,2 
JMP ©Emulate 

SUB 0 0 

STA 0 10,2 ; STKP 

LDA 0 1,2 
LDA 1 2,2 
JMP ©INLDP 



DISASTER: LDA 2 ©PuntData 

MOV# 0 0 SNR 
JMP SwatPunt 

INC 2 2 

INC 2 2 

LDA 0-1,2 

MOV0 0 0 SNR 
JMP SwatPunt 

SUB 1 1 

JSR ©OUTLDP 
INLDP: 0 

LDA 0-2,2 

MOV 2 1 

JMP ©INLDP 
PuntData: 456 



<- 1 



FP 

©MESSAGE 



; RETURN VALUE 



NEVER RETURNS 
POINTER TO PUNT DATA 
NOT SET UP YET 

MESACOREFP 
NOT SET UP YET 

MESADEBUGGERFP 



RTRN: 0 
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SWATTrap: 567 
SwatPunt : 

JSR Swatl 

.TXT "Puntl" 
Swatl: MOV 3 1 

LDA 3 ©SWATTrap 

JMP 16,3 ; does a CallSwat 

; CALL LEAVES FCN-CODE, ADDRESS, ARG ON TOP OF STACK 

; tos ARG 

; tos-1 ADDRESS 

tos-2 FCN-CODE 
; CALLS NOVA CODE WITH ARG IN ACO, RETURNS ACO TO TOS 
; INTERRUPTS MUST REMAIN OFF1 

NOVAJSR: DSZ 10,2 ; STKP «- STKP - 1 

DSZ 10,2 ; STKP 4- STKP - 1 

; THESE SHOULD NEVER SKIP 
LDA 3 10,2 ; AC3 <- STKP 

ADD 2 3 ; AC3 «- POINTER TO NEW TOS+1 

LDA 0 1,3 ; ACO <- ARG 

JSR §0,3 

LDA 2 currentState 

LDA 3 10,2 ; AC3 <- STKP 

ADD 2 3 

STA 0 -1,3 

JMP ©Emulate 



CI eanUpQueue : 
sta 
mov 
Ida 

movzl# 

jmp 
Ida 
snz 
jmp 

f indhead : 

sne 

jmp 
snz 

jmp 
mov 
Ida 
jmp 

f oundhead : 
mov 

f indtail : 

Ida 
sne 

mov 
jmp 

queueempty : 
sub 

foundtail : 
sta 
mov 
jmp 

ql: 0 
q2: 0 
p: 0 
QSreturn: 0 



;(q) returns (q) 
3 QSreturn 

0 2 

3 0,2 ; p <- qt 
3 3 snr ; 
©QSreturn 

1 cleanUpLink,3 

1 1 ; 
©QSreturn 



1 3 

queueempty 
1 1 

foundhead 
1 3 

1 cl eanUpLink , 3 
f indhead 



test p = NIL; ignore ww 



test p.cleanUpLink - NIL 



test p.cleanUpLink # p 

test p.cleanUpLink # 0 

p <- p.cleanUpLink 
load p.cleanUpLink 



3 0 

1 link, 3 

0 1 

foundtai 1 

1 3 

findtail 



3 3 

3 0,2 
2 0 

©QSreturn 



; head «- p 

;test p. link * head 
; p «- p . 1 ink 

; set qt «- NIL when p . cleanUpLink = p 

; qt «- p 
; return q 



RequeueSub: ; (ql,q2 t p) 

; returns with p still in AC2 

sta 0 ql 
sta 1 q2 
sta 2 p 
sta 3 QSreturn 



Ida 
sub 



3 link, 2 
2 3 szr 



test p . 1 ink ■ p 
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del ink: 



search: 





delink 


; not equal; must delink 


; pp » 


U " ALo 




sz 


n n 
u u 


; it q i-u 


4mm 
J M P 


cl eanStore 


1 J „ 

i oa 


i 1 1 nK , l 


. Kt* A. Pm n 1 4 rt Lr / n. A A n A 

; Ati p.iinK (added 


4 mm 

jmp 


cl eanLater 




movz 


0 3 snr 


; if ql-0 


movo 


2 3 skp 


; then p; carry«l iff ql-0 


Ida 


3 0,3 


; else qlt; assumes link ■ 0 


; pp is 


in 3 


Ida 


1 link, 3 




seq 


1 2 




jmp 


search 


; assumes link a 0 


; now pp . link ■ p 




Ida 


1 link, 2 




sta 


1 link, 3 


; pp . 1 ink p. 1 ink 


mov# 


0 0 szc 


; test ql»0 (carry set above) 


jmp 


cleanLater 


; cleanup later 



cleanNow 

Ida 0 Gql 

sub^ 0 2 snr 
cleanStore: sta 3 @ql 

jmp insert 
cleanLater: 

sta 



; if qlt«p 
; qlt pp 



1 cl eanUpLink , 2 ; p . cl eanUpLink «- p. link 



insert: 



Ida 
sz 

jmp 



3 0q2 
3 3 
RQnonempty 



pp 4- q2t 
test for zero 



here if queue was empty 



sta 2 link, 2 
sta 2 @q2 
jmp @QSreturn 

mPriority: priority 

RQnonempty: 



p . 1 ink <- 
q2t p; 



Ida 


0 mPriority 


; mask 


Ida 


1 bi tsandpr iori ty, 2 


and 


0 1 


; p. priority 


Ida 


2 bitsandpriority,3 


and 


0 2 


; pp. priority 


sleu 


1 2 


; skip if p. priority <■ 


jmp 


iSearch 




; here 


if item is new 


queue head 


Ida 


2 P 




sta 


2 @q2 


; q2t *- p 


jmp setLinks 




iSearch: 






Ida 


2 link, 3 


; pp. link 


Ida 


2 bitsandpriori ty, 2 


and 


0 2 


; pp . 1 ink . priority 


sleu 


1 2 


; skip if p. priority <* 


jmp 


searchdone 




Ida 


3 link, 3 




jmp 


iSearch 




searchdone: 






Ida 


2 P 




setLinks : 






Ida 


1 link, 3 




sta 


1 link,2 


; p . 1 ink «- pp . 1 ink 


sta 


2 link.3 


; pp . 1 ink «- p 


jmp 


GQSreturn 


END: jmp 


START+200 


; generate error 



pp . 1 ink .priority 



. END 



